home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr16 / lotsansi.zip / ANSI_ART.ZIP / PCNEWSV3.ZIP / GO.BAT < prev    next >
DOS Batch File  |  1990-12-25  |  2KB  |  174 lines
  1. @echo off
  2. cls
  3. TYPE PCNEWS.INF
  4. pause
  5. cls
  6. TYPE COVER.ANS
  7. wait 4
  8. TYPE TITLE.ANS
  9. wait 4
  10. TYPE TITLE0.ANS
  11. wait 4
  12. TYPE TITLE1.ANS
  13. wait 4
  14. TYPE TITLE2.ANS
  15. wait 4
  16. TYPE TITLE3.ANS
  17. wait 4
  18. wait 4
  19. TYPE TITLE4.ANS
  20. wait 4
  21. cls
  22. :MAIN
  23. cls
  24. Type MAIN.ANS
  25. RESPONSE IQHGFEDCBA
  26. If errorlevel 10 goto EDITORS
  27. If errorlevel 9 goto PROFILES
  28. If errorlevel 8 goto BBSADS
  29. If errorlevel 7 goto NEWBBS
  30. If errorlevel 6 goto SALE
  31. If errorlevel 5 goto LETTERS
  32. If errorlevel 4 goto PROBLEMS
  33. If errorlevel 3 goto FUN
  34. If errorlevel 2 goto END
  35. If errorlevel 1 goto NEWS
  36. Goto MAIN
  37. :EDITORS
  38. cls
  39. Type SUBA.ANS
  40. pause
  41. Goto MAIN
  42. :PROFILES
  43. cls
  44. Type SUBB.ANS
  45. RESPONSE R21
  46. If errorlevel 3 goto PRO1
  47. If errorlevel 2 goto PRO2
  48. If errorlevel 1 goto MAIN
  49. Goto Main            
  50. :PRO1
  51. cls
  52. Type SUBB1.ANS
  53. pause
  54. cls
  55. Goto PROFILES
  56. cls
  57. :PRO2
  58. cls
  59. Type SUBB2.ANS
  60. pause
  61. cls
  62. Goto PROFILES
  63. :BBSADS
  64. cls
  65. Type SUBC.ANS
  66. RESPONSE R123456789
  67. If errorlevel 9 goto BBS8
  68. If errorlevel 8 goto BBS7
  69. If errorlevel 7 goto BBS6
  70. If errorlevel 6 goto BBS5
  71. If Errorlevel 5 goto BBS4
  72. If errorlevel 4 goto BBS3
  73. If errorlevel 3 goto BBS2        
  74. If errorlevel 2 goto BBS1
  75. If errorlevel 1 goto MAIN
  76. Goto BBSADS
  77. :BBS1
  78. cls
  79. Type SUBC1.ANS
  80. pause
  81. Goto BBSADS
  82. :BBS2
  83. cls
  84. Type SUBC2.ANS
  85. pause
  86. Goto BBSADS
  87. :BBS3
  88. cls
  89. Type SUBC3.ANS
  90. pause
  91. Goto BBSADS
  92. :BBS4
  93. cls
  94. Type SUBC4.ANS
  95. pause
  96. Goto BBSADS
  97. :BBS5
  98. cls
  99. Type SUBC5.ANS
  100. pause
  101. Goto BBSADS
  102. :BBS6
  103. cls
  104. Type SUBC6.ANS
  105. pause
  106. Goto BBSADS
  107. :BBS7
  108. cls
  109. Type SUBC7.ANS
  110. pause
  111. Goto BBSADS
  112. :BBS8
  113. cls
  114. Type SUBC8.ANS
  115. pause
  116. Goto BBSADS
  117. :NEWBBS
  118. cls
  119. Type SUBD.ANS
  120. RESPONSE R
  121. if errorlevel 1 goto MAIN 
  122. Goto MAIN
  123. :SALE
  124. cls
  125. Type SUBE.ANS
  126. RESPONSE R
  127. If errorlevel 1 goto MAIN
  128. Goto MAIN
  129. :LETTERS
  130. cls
  131. Type SUBF.ANS
  132. RESPONSE R
  133. If errorlevel 1 goto MAIN
  134. Goto MAIN
  135. :PROBLEMS
  136. cls
  137. Type SUBG.ANS
  138. pause
  139. cls
  140. Goto MAIN
  141. :FUN
  142. Type SUBH.ANS
  143. pause
  144. cls
  145. Goto MAIN
  146. :NEWS
  147. cls
  148. Type SUBI.ANS
  149. pause
  150. cls
  151. Goto MAIN
  152. :END
  153. cls
  154. Type SUBQ0.ans
  155. pause
  156. cls
  157. Type SUBQ1.ANS
  158. wait 4
  159. cls
  160. Type SUBQ2.ANS
  161. wait 4
  162. cls
  163. Type SUBQ4.ANS
  164. wait 4
  165. cls
  166. Type SUBQ3.ANS
  167. wait 4
  168. cls
  169. Type SUBQ5.ANS
  170. wait 4
  171. cls
  172. TYPE COVER2.ANS
  173. wait 4
  174. cls